home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / bew2lst.zip / BEW2LST.PAS < prev    next >
Pascal/Delphi Source File  |  1992-01-26  |  587b  |  30 lines
  1.  
  2. (*
  3.  * convert Qmodem "bem" format to a simple filelist for
  4.  * use with hs/link.
  5.  *
  6.  * Samuel H. Smith, 25-Jan-92
  7.  *
  8.  *)
  9.  
  10. var
  11.     cdir:    string;
  12.     cline:    string;
  13. begin
  14.     cdir := '';
  15.     while not eof do
  16.     begin
  17.         readln(cline);
  18.                 if (pos('\',cline)+pos(':',cline)) > 0 then
  19.                 begin
  20.                         cdir := cline;
  21.                         if cdir[length(cdir)] = '\' then
  22.                            dec(cdir[0]);
  23.                 end
  24.                 else
  25.  
  26.                 if cline <> '' then
  27.             writeln(cdir + '\' + cline);
  28.     end;
  29. end.
  30.